home *** CD-ROM | disk | FTP | other *** search
- object Form34: TForm34
- Left = 280
- Top = 128
- AutoSize = True
- BorderStyle = bsNone
- Caption = 'Telefon defteri'
- ClientHeight = 397
- ClientWidth = 597
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Image1: TImage
- Left = 0
- Top = 0
- Width = 597
- Height = 397
- Picture.Data = {<image000.jpg>}
- OnMouseDown = Image1MouseDown
- end
- object Image2: TImage
- Left = 334
- Top = 265
- Width = 185
- Height = 36
- AutoSize = True
- Picture.Data = {<image001.bmp>}
- Transparent = True
- end
- object Label1: TLabel
- Left = 344
- Top = 50
- Width = 169
- Height = 23
- Cursor = crHandPoint
- Alignment = taCenter
- AutoSize = False
- Caption = 'Yeni Kay�t'
- Color = clLime
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -11
- Font.Name = 'Arial Black'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- OnClick = Label1Click
- OnMouseMove = Label1MouseMove
- end
- object Label2: TLabel
- Left = 344
- Top = 94
- Width = 169
- Height = 23
- Cursor = crHandPoint
- Alignment = taCenter
- AutoSize = False
- Caption = 'Listeleme'
- Color = clLime
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -11
- Font.Name = 'Arial Black'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- OnClick = Label2Click
- OnMouseMove = Label2MouseMove
- end
- object Label3: TLabel
- Left = 344
- Top = 138
- Width = 169
- Height = 23
- Cursor = crHandPoint
- Alignment = taCenter
- AutoSize = False
- Caption = 'D�zeltme'
- Color = clLime
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -11
- Font.Name = 'Arial Black'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- OnClick = Label3Click
- OnMouseMove = Label3MouseMove
- end
- object Label4: TLabel
- Left = 344
- Top = 228
- Width = 169
- Height = 21
- Cursor = crHandPoint
- Alignment = taCenter
- AutoSize = False
- Caption = 'Yard�m'
- Color = clLime
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -11
- Font.Name = 'Arial Black'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- OnClick = Label4Click
- OnMouseMove = Label4MouseMove
- end
- object Label5: TLabel
- Left = 344
- Top = 184
- Width = 169
- Height = 25
- Cursor = crHandPoint
- Hint = 'Bilgisayar�n �stendi�i Zaman Kapat�lmas�'
- Alignment = taCenter
- AutoSize = False
- Caption = 'Bilgisayar� Kapama'
- Color = clLime
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -11
- Font.Name = 'Arial Black'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Transparent = True
- OnClick = Label5Click
- OnMouseMove = Label5MouseMove
- end
- object Label6: TLabel
- Left = 344
- Top = 273
- Width = 169
- Height = 19
- Cursor = crHandPoint
- Alignment = taCenter
- AutoSize = False
- Caption = '��k��'
- Color = clLime
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -11
- Font.Name = 'Arial Black'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- OnClick = Label6Click
- OnMouseMove = Label6MouseMove
- end
- object Label7: TLabel
- Left = 56
- Top = 40
- Width = 32
- Height = 25
- AutoSize = False
- Transparent = True
- OnClick = Label7Click
- end
- object Label8: TLabel
- Left = 96
- Top = 40
- Width = 33
- Height = 25
- AutoSize = False
- Transparent = True
- OnClick = Label8Click
- end
- object Label9: TLabel
- Left = 48
- Top = 320
- Width = 273
- Height = 17
- AutoSize = False
- Caption = 'Erboy Bilgisayar '
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -11
- Font.Name = 'Arial Black'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label12: TLabel
- Left = 232
- Top = 320
- Width = 119
- Height = 15
- Caption = 'Erboy Bilgisayar '
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -11
- Font.Name = 'Arial Black'
- Font.Style = []
- ParentFont = False
- Transparent = True
- Visible = False
- end
- object DBGrid1: TDBGrid
- Left = 40
- Top = 77
- Width = 281
- Height = 217
- BiDiMode = bdLeftToRight
- BorderStyle = bsNone
- Color = 10683649
- DataSource = DataSource1
- FixedColor = clNavy
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection]
- ParentBiDiMode = False
- ParentFont = False
- ReadOnly = True
- TabOrder = 0
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clLime
- TitleFont.Height = -11
- TitleFont.Name = 'Arial'
- TitleFont.Style = []
- OnDblClick = DBGrid1DblClick
- Columns = <
- item
- Expanded = False
- FieldName = 'Ad'
- Width = 94
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Soyad'
- Width = 79
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Telefon'
- Width = 88
- Visible = True
- end>
- end
- object Panel1: TPanel
- Left = 56
- Top = 96
- Width = 233
- Height = 161
- BorderStyle = bsSingle
- Color = 9372673
- TabOrder = 1
- Visible = False
- object Label10: TLabel
- Left = 16
- Top = 24
- Width = 193
- Height = 17
- AutoSize = False
- Caption = 'Bilgisayar�n Kapanmas�n�'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label11: TLabel
- Left = 32
- Top = 48
- Width = 185
- Height = 25
- AutoSize = False
- Caption = '�stedi�iniz Saati Yaz�n'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label13: TLabel
- Left = 12
- Top = 132
- Width = 93
- Height = 25
- AutoSize = False
- Caption = '�u an Saat'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label14: TLabel
- Left = 104
- Top = 132
- Width = 34
- Height = 19
- Caption = 'Saat'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object MaskEdit1: TMaskEdit
- Left = 80
- Top = 72
- Width = 57
- Height = 24
- AutoSize = False
- Color = clBlack
- EditMask = '00\:00\:00;1;_'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- MaxLength = 8
- ParentFont = False
- TabOrder = 0
- Text = ' : : '
- end
- object Button1: TButton
- Left = 40
- Top = 104
- Width = 57
- Height = 17
- Caption = 'Tamam'
- TabOrder = 1
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 128
- Top = 104
- Width = 57
- Height = 17
- Caption = '�ptal'
- TabOrder = 2
- OnClick = Button2Click
- end
- end
- object Timer1: TTimer
- OnTimer = Timer1Timer
- Left = 304
- Top = 24
- end
- object DataSource1: TDataSource
- DataSet = Table1
- Left = 192
- Top = 16
- end
- object Table1: TTable
- Active = True
- TableName = 'tel.db'
- Left = 224
- Top = 16
- object Table1No: TAutoIncField
- FieldName = 'No'
- ReadOnly = True
- end
- object Table1Ad: TStringField
- FieldName = 'Ad'
- end
- object Table1Soyad: TStringField
- FieldName = 'Soyad'
- end
- object Table1Telefon: TStringField
- FieldName = 'Telefon'
- end
- object Table1Aciklama: TMemoField
- FieldName = 'Aciklama'
- BlobType = ftMemo
- Size = 50
- end
- object Table1Ikincitel: TStringField
- FieldName = 'Ikincitel'
- end
- object Table1Ceptel: TStringField
- FieldName = 'Ceptel'
- end
- object Table1Faks: TStringField
- FieldName = 'Faks'
- end
- object Table1Il: TStringField
- FieldName = 'Il'
- end
- object Table1Resim: TGraphicField
- FieldName = 'Resim'
- BlobType = ftGraphic
- end
- object Table1Adres: TMemoField
- FieldName = 'Adres'
- BlobType = ftMemo
- Size = 50
- end
- object Table1M: TMemoField
- FieldName = 'M'
- BlobType = ftMemo
- Size = 1
- end
- end
- object Timer2: TTimer
- Enabled = False
- OnTimer = Timer2Timer
- Left = 344
- Top = 24
- end
- end
-